;; Universidad del Valle de Guatemala
;; Algoritmos y Estructuras de Datos
;; Investigacion Corta 3 para preparacion de proyecto 3
;; sintaxis utilizada prefix
;; Funcion que permite mostrar en pantalla un mesaje de cadena, puede utilizar tambien datos resultantes de alguna operacion previa
* (format t "~%Investigacion Corta 3 ")
* (format t "~%Christopher Luttmann    10048")
* (format t "~%Martha Thomae           07019")
* (format t "~%Alejandro Rojas         10104")
;; Esta es la sintaxis para poder definir una funcion 
* (DEFUN FACTORIAL (N)
;; Cuerpo de la funcion factorial
(COND ((<= N 1) 1)
(T (* (FACTORIAL (1- N)) N))))
* (format t "~%Usted acaba de definir la funcion factorial")